(add-hook 'nxml-mode-hook 'my-nxml-mode)
(defun my-nxml-mode()
  (define-key nxml-mode-map (kbd "<f1> 1") 'bf-pretty-print-xml-region)
  )

